home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / clisp-c.zoo / screen.lsp < prev    next >
Encoding:
Text File  |  1993-06-05  |  1.0 KB  |  32 lines
  1. (in-package "SCREEN")
  2.  
  3. ; Re-Export von importierten Symbolen kann man nicht mit der
  4. ; P I S E R U I - Regel erreichen. Diese Symbole muß man zuerst importieren.
  5. (in-package "SYSTEM")
  6. (import '(make-window window-size
  7.           window-cursor-position set-window-cursor-position
  8.           clear-window clear-window-to-eot clear-window-to-eol
  9.           delete-window-line insert-window-line
  10.           highlight-on highlight-off window-cursor-on window-cursor-off
  11.          )
  12.         "SCREEN"
  13. )
  14. (in-package "SCREEN")
  15.  
  16. (export '(make-window window-size
  17.           window-cursor-position set-window-cursor-position
  18.           clear-window clear-window-to-eot clear-window-to-eol
  19.           delete-window-line insert-window-line
  20.           highlight-on highlight-off window-cursor-on window-cursor-off
  21.           with-window *window*
  22. )        )
  23.  
  24. (proclaim '(special *window*))
  25.  
  26. (defmacro with-window (&body body)
  27.   `(LET ((*WINDOW* (MAKE-WINDOW)))
  28.      (UNWIND-PROTECT (PROGN ,@body) (CLOSE *WINDOW*))
  29.    )
  30. )
  31.  
  32.